home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / dtype / f1gp_bkg_dt.lha / f1gp_bkg_dt / Install_F1GP_BKG_Datatype < prev    next >
Text File  |  1999-02-11  |  2KB  |  75 lines
  1. ; $VER: Install_F1GP_BKG_DataType 1.3 (25.3.97)
  2. ;   by Oliver Roberts (oliver.roberts@iname.com)
  3. ;
  4. ; French translation by Daniel Grenson
  5.  
  6. (if (= (exists "Env:Language") 1)
  7.     (set @language (getenv "Language"))
  8. )
  9.  
  10. ;*****************
  11. ; English strings
  12. ;
  13. (set #str-kick3 "You must be running Kickstart 3.0 or higher to use datatypes.")
  14. (set #str-cpu "Choose which version of the datatype to install")
  15. (set #str-installdt "Installing Datatype")
  16. (set #str-installclass "Installing f1gp_bkg.datatype class")
  17. (set #str-installdes "Installing Format Descriptors")
  18.  
  19. ;****************
  20. ; French strings
  21. ;
  22. (if (= @language "français") (
  23.  (set #str-kick3 "Vous devez fonctionner avec un Kickstart 3.0 ou supérieur pour utilise des datatypes.")
  24.  (set #str-cpu "Choisissez la version de datatype à installer")
  25.  (set #str-installdt "Installing Datatype")
  26.  (set #str-installclass "Installation de f1gp_bkg.datatype class")
  27.  (set #str-installdes "Installation des descripteurs de format")
  28. ))
  29.  
  30. ;*************
  31. ; Here we go!
  32. ;
  33. (set @default-dest "")
  34. (set #cpu (database "cpu"))
  35. (set #cpu020 (and (<> #cpu "68000") (<> #cpu "68010")))
  36.  
  37. (if (< (/ (getversion) 65536) 39)
  38.     (abort #str-kick3)
  39. )
  40.  
  41. (set #cpu020
  42.     (askchoice
  43.         (help @askchoice-help)
  44.         (prompt #str-cpu)
  45.         (choices "68000" "68020+")
  46.         (default #cpu020)
  47.     )
  48. )
  49.  
  50. (working #str-installdt)
  51.  
  52. (if (<> (exists "SYS:Classes") 2) (makedir "SYS:Classes" (infos)) )
  53.  
  54. (set #dtname "Classes/DataTypes/f1gp_bkg.datatype")
  55. (if #cpu020 (set #dtname (cat #dtname ".020")))
  56.  
  57. (copylib
  58.     (help @copylib-help)
  59.     (prompt #str-installclass)
  60.     (source #dtname)
  61.     (dest "SYS:Classes/DataTypes")
  62.     (newname "f1gp_bkg.datatype")
  63.     (confirm)
  64. )
  65. (copyfiles
  66.     (help @copyfiles-help)
  67.     (prompt #str-installdes)
  68.     (source "Devs/DataTypes/F1GP Backdrop")
  69.     (dest "DEVS:DataTypes")
  70.     (infos)
  71.     (confirm)
  72. )
  73.  
  74. (run "C:AddDataTypes >NIL: REFRESH")
  75.